--# -path=.:resource:prelude

concrete TestChi of Test = GrammarChi ** open Prelude, MorphoChi in {

flags coding=utf8;

  lin                            --noun     classifier
    wine_N = mkN "葡萄酒" "瓶" ; --pútáojiǔ píng
    cheese_N = mkN "芝士" "块" ;
    fish_N = mkN "鱼" "条" ;
    pizza_N = mkN " 披萨" "个" ;
    waiter_N = mkN "侍应生" "个" ;
    customer_N = mkN "客户" "个" ;
    fresh_A = mkA "新鲜" True ;
    warm_A = mkA "暖和" False ;
    italian_A = mkA "意大利" True ;
    expensive_A = mkA "昂贵" True ;
    delicious_A = mkA "美味" True ;
    boring_A = mkA "枯燥" True ;
    stink_V = mkV "臭" ;
    eat_V2 = mkV2 (mkV "吃") ; --chī
    love_V2 = mkV2 (mkV "爱") ;
    talk_V2 = mkV2 (mkV "谈论") "关于" ;
}


